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Ee 8 "LANGUAGE, (BL 32), 
IDENT = 704-000 

BEGIN 


' 
. 
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'® ® 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
- ALL RIGHTS RESERVED. * 
' * 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE “ITH THE TERM F SUCH LICENSE AND WITH THE * 
tw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i: TRANSFERRED. ; 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
- CORPORATION. * 
' * 
!® DIGITAL ASSUMES NO RESPONS * 
- SOFTWARE ON EQUIPMENT WHIC * 
' « 
'® 
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ITY FOR THE USE OR RELIABILITY OF ITS 


BILIT 
IS NOT SUPPLIED BY DIGITAL. 


I 
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'e4¢ 

' 

: FACILITY: MOUNT Utility Structure Levels 1 & 2 
i ABSTRACT: 


These routines allocate and hook up the logical name and mounted 
volume List entries. 


i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Oct-1977 19:30 
i MODIFIED BY: 


v03-018 HHO041 Hai Huang 24-J acres 
Remove REQUIRE ‘LIBD$:CV SLIB.0BJJNOUNTMSG.B3 *. 


v03-017 HHO040 Hai Huang 20-Jul-1984 — 
Cal EXESCRE_GTABLE to create the logical name table if 
it doesn't already exist. 
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SK$V neh TER: CMOUNT. SRCJMAKLOG. B32. 79° 
$ 8 82 1! 3 
3 9 0 1! V03-016 HHO038 Hai Huang 12-Jul-1984 ; 
; o0 +4 : } Correct MOUNT FLAGS strotture attribute. " 
: 6 06¢ 1 i V03-015 MHBO153 Mark Bramhall 27-Apr-1984 ; 
; e7 st4 : Correct NSASB_ARG_FLAG setting for sultiple. audits enabled. : 
: 65 065 1! V03-014 ACG0423 Andrew C. Goldstein, 24-Apr-1984 11:06 ; 
; © B96 1} Make disk logical names in MOUNT exec mode to make them ; 
3 44 BaeE : available to privileged programs. : 
: 69 069 1! v03-013 HHO012 Hai H 09-Apr-1984 ; 
3 0 $090 1! Get the device owner MOC and the volume protection $ 
; a! B30) ' from the ORB instead of the UCB. : 
Be: 6078 1 i v03-012 HHO009 Hai Huang 27-Mar-1984 : 
$ a Oope ! ; Add security auditing support. : 
> «76 0076 1: v03-011 HHO007 Hai Huang 21-Mar-1984 ; 
s 7 0077 1! Add cluster-wide group-volume support, i.e., create the- Fs 
3 A: Bore : group logical name in the group table of the current : 
; 0 S08; i v03-010 ann Hai H 23-Jan-1984 
g . - - an- é 
3 : it ; Add job-wide mount bnew & : 
> B4 0084 1 v03-009 ROW0254 Ralph 0. Weber 12-NOV-1983 ; 
3; 85 0085 1! rane Logical names c** herein to be of the GETDVI : 
; 0086 1! LLDEVNAM form. This will result in allocation class names $ 
$s 6S 0087 1! istee used for the equivalence name strings of nb cal names : 
; 6288 0088 1! defined by mount. Therefore, the mounted volume logical name 
; 8 0089 1! equivalence strin ngs can be held over time and passed around 
3 39 Beas } the VAXcluster without becomming stale. 
: 9 0092 1! v03-008 coso001 Christian D. Saether 2-Aug-1983 
3 7 Boaz ’ : Remove references to RVX structure (obselete). 
: 95 0095 1: V03-007 DMW4057 DMWalp 23-Jun-1983 
3 +s B28 : Change $xxLNM value parameters to be by reference 
: 98 0098 1: v03-006 DMW4050 wate 15-Jun-1983 
; 299 099 1! Corrections to pmucd odded LNMSM_TERMINAL 
3 190 190 ' Change over to LNAS_ LNMB_ ADDR 
: 10¢ 19¢ 1 V03-005 ADE9004 A. ELDRIDGE 29-May-1983 
; 137 132 ! Fixed name binding to logical name tables. 
: 105 105 1! V03-004 DMW4033 DMWalp 26-May-1983 
3 198 196 ' Intergate new logical” name structures. 
: 108 0108 1: v03-003 $TJ50311 Steven T. Jeffr 10-Feb-1982 
3; 109 109 1! - Make all uses of PHYS pretoa 9 oe by DEVICE_INDEX, 
; 110 110 1! but always use PHYS_NAMEC for cppe mounts. 
s 111 3 6 - Set the access mode of t Logica es(s) created 
; 116 i ' to be the MIN (PSLEC. OSUBER, ce LLERS mACMOD) . (SPR 45688) 
: 114 114 13 v03-002 DMw4010 DMWalp 19-Nov-1982 
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iSrdeo-19Be 01:16:19 yc aks 


Rework logical name block to MTL ( or UCB ) Links. 


V03-001 STJ0248 Steven T. Jeffreys, 31-Mar-1982 
- Allow for ASCII "A" characters in a volume name. 
v02-006 STJ0205 Steven T. Jeffre 07-F 


eb-1982 
Create a local copy of the user “Fpecitied Logical name 
to prevent it from being stepped on. 


vO2-005 LMP0006 L. Mark Pilant 29-Dec-1981 12:00 
Interlock the mount List to pad OF potential disasters. 

v02-004 ACG0219 Andrew C. Goldstein, 23-Oct-1981 10:48 
Add concealed device support in MOUNT 

v02-003 pT s0tee Steven T. Jeffreys, 10-Sep-1981 


Fixed references to the logical name descr inter to use 
the symbolic offsets. This ensures that references to 
the logical name Length will be WORD context. 


V02-002 ACG0167 Andrew C. Goldstein, b> lt 13:38 
Previous revision history moved to MOUNT.REV 


LIBRARY ‘SYSS$LIBRARY:LIB. L32"; 
REQUIRE 'SRC$:MOUDEF .B32'; 


LITERAL 
PHYS_LENGTH = 15; 


FORWARD ROUTINE 
LABEL_LENGTH; ! return the Length of a volume Label 


' Longest allowable physical name 


So 


=742 
UNT.SRCJMAKLOG. B32: i%° 
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MAKLOG 16-Sep-19 4 93:19:13 VA Bliss-32 V4.0-742 Page 4 
v04-000 14-Sep-1984 12:45:22 DI SMASTER: CMOUNT.SRCIJMAKLOG.B32;1 (2) 


| 
GLOBAL ROUTINE ALLOC_LOGNAME (MODE) : NOVALUE = | 


; 150 680 1 

a BBd. 

: ++ 

3 138 6 : 1! 

: 122 dees } FUNCTIONAL DESCRIPTION: 

; 156 0686 1! This routine allocates thc mounted volume List entry from the 
: 157 0687 1! spereer ote storage pools. It used to allocate logical name block 
s 138 0688 1! also ( thus the name ). 

3 1359 0689 1! 

: 160 0690 1! 

3 16) 863) 1 ! CALLING SEQUENCE: 

; 196 O36 ee ALLOC_LOGNAME () 

; 16 0693 1! 

> «164 0694 1 ! INPUT PARAMETERS: 

; 165 0695 1! MODE: 0 to use user-specified logical name 

: «166 0696 1! to force use of volume name 

: 167 5244 1! 

3; 168 698 1 ! IMPLICIT INPUTS: 

; 169 0699 1! MOUNT parser database 

: 170 0700 1! 

“Se fa! 0701 1 ! OUTPUT PARAMETERS: 

; \7e 0702 1! NONE 

eS | 0703 1! 

3 (174 0704 1 ! IMPLICIT OUTPUTS: 

s W793 0705 1! MTL_LENTRY: address of MTL block 

: 176 0706 1! 

s Wr 0707 1 ! ROUTINE VALUE: 

3; 178 0708 1! NONE 

: 179 0709 1! 

; 180 0710 1 ! SIDE EFFECTS: 

3; 181 0711 1! NONE 

: 182 orig 1! 

; «(183 0713 1 !-= 

> «(184 0714 1 

3; 185 0715 2 BEGIN 

3: «4186 0716 2 

3: 187 0717 § EXTERNAL 

: 188 0718 MOUNT OPTIONS : BITVECTOR, ' command options 

: 189 0719 MTL_ERTRY : REF BBLOCK; ! MTL block 

3; 190 0720 

3 «6191 0721 EXTERNAL ROUTINE 

3: 192 0756 ALLOCATE_MEM; ! allocate dynamic memory 

: 193 as 

: 194 724 

3; «6195 725 ' Now allocate the mounted volume List ener, 

3 196 0726 ! Note: to support job-wide mount, a mount List entry 

; + 4 BrSe is always allocated from paged pool. 

3 hs 0739 MTL_LENTRY = ALLOCATE_MEM (MTLSC_LENGTH, 1); 
; | 
; 201 O73 MTL_ENTRYCMTLSB_TYPE) = DYNSC_MTL; 
; $08 0738 1 END; ! end of routine ALLOC_LOGNAME | 


TITLE MAKLOG 


Fe ee ae ee ee ee ee ee a eLearn eee ee 7 


a 


3; Routine Size: $CODES + 0000 


a 2:08: 
IDENT 


eEXTRN 
eEXTRN 


«PSECT 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMOUNT. SRCIJMAKLOG. B32. 719° 


MOUNT OE MEM MTL_ENTRY 


cecal wcaita 
er LOGNAME, Save nothing 


n, eM MEM 


Be Be Se Be Be Be Be 


i 
————— 
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MAKLOG hese =1984 01:16:19 VAX-11 
v04-000 12-8 08- 1 3b 04:18:48 DISKSVM 
05 GLOBAL ROUTINE ENTER_LOGNAME (UCB, VCB) : NOVALUE = 


Liss-32 V4.0-742 Page 6 
MASTER: CMOUNT.SRCJMAKLOG.B32;1 (3) 


Ss 


le 
' 
FUNCTIONAL DESCRIPTION: 
This routine sonetotas the logical name and mounted volume List 


entries. It builds MTL entry and creates the logical name 
and hooks up the MTL entry in the appropriate List. 


PS ) 


SSN NGG 


CALLING SEQUENCE: 
ENTER_LOGNAME (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: UCB of volume being mounted 
ARG2: VCB of volume being mounted 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! IMPLICIT INPUTS: 
! MOUNT parser data base 
MTL_ENTRY: address of MTL block 
i] 

i 

i 

i 

i 

i 

i] 

i 

i 

i 

i 

i 

i 

ie 


BEEBE EWN RPP NNININIPIN 2 OO 


5 4 1 

5 5 : 

8 . 

3 0 6 9 1 

; 1 8 0 1 

: ¢ 1 =#1 

: 0 ¢ 1 

3 4 0745 1 

; 5 0744 1 

3 § Bre? 1 

: rs 1 

; 8 0747 1 

3 9 0748 #1 

: 220 0749 1 

: § 1 0750 1 

3 ¢ 0751 1 

3 § O° 26 1 

3 4 0753 1 

3 5 0754 1 

; $ oF? : SMTC_ENTRY: address of MTL block for volume set 
; 228 0757 1 OUTPUT PARAMETERS: 

: 229 0758 #1 NONE 

3 en 0759 1 

3; 231 0760 1 IMPLICIT OUTPUTS: 

: 232 0761 1 NONE 

3 gos Or 66 1 

3; 234 076 1 ROUTINE VALUE: 

; 235 0764 1 NONE 

5 § 6 0765 1 

3 7 0766 1 ! SIDE EFFECTS: 

; 238 0767 1 logical name and MTL entry entered 

. ey 0768 1 

: 240 0769 1 !-- 

: 241 0770 1 

3 2 ¢ 0771 BEGIN 

, « 140 

3 246 077 MAP 

: 245 0774 uCcB : REF BBLOCK, ! UCB being mounted 
3 § br? vcB : REF BBLOCK; ! VCB being mounted 
: 248 O77? BUILTIN 

$ 49 778 INSQUE, 

5 $20 0779 CALLG; 

: 251 0780 

3 $26 378) BIND 

¢ 5 44 TAPE _PREF IX = UPLIT BYTE ( ‘TAPES$' ), 

3: 254 078 DISK” PREFIX = UPLIT BYTE ( "DISKS" ), 

H 55 784 SYSTEM TABLE = ZASCID ‘LNMSSYSTEM', 

; 28 4 5 J0B_ TABLE = ZASCID ‘LNM$JOB'; 

: 58 7 LOCAL 

3 59 788 ACMODE, ' access mode 
; 260 0789 INDEX, ' local index into PHYS_NAME vector 
3 se) 0790 Pe ! string pointer 


F 10 
16=Sep-1986 01:16:1 VAX=11 Bliss-32_V4.0-762 ge 7| 
1o-8e8= 1382 3:18:33 DISKSVMSMASTER: [MOUNT . SRCIJMAKLOG. B32. 79 (3) | 

3; 2 791 C, ' string count 

3 6 73¢ RVT : REF BBLOCK } ointer to RVT 

> 264 79 NAME _DESC : BBLOCK DstsK_s 1. 

; 94 rnal Le ical name descriptor 

3 95 LOG_BUFFER : VECTOR CLNMSC “HAMLENGTH Bvt 

; 36 ' ogi cal name buffer 

3 9 sect bist : REF war ' ad ac of mount list tail 

; 98 TEM_CIS : VECTOR (643) +4 ,L 

; 99 CRELAIM item list, 6 items each | 
; 00 Longwords in Lenght plus 1 

3 01 for the terminator lLongword 
5 o¢ PHYSNAM_DESC : BBLOCK C DSCSK. BLN 

; 0 T GETOVI I'gescript gr for physical name 

; 804 FULLNAM : VECTOR C PHYS _LENGTH + 

; 805 i oun e to store the FULLDEVNAM string 

; 806 DVI_ITEM : VECTOR C 3#1, LONG 

3 80 GETDOVI item List 

; 27 808 JIB : REF B Score uf gotnter to Job late Block 

3 809 TABLE _NAME : VECTOR C16, 

3 @ 810 INITIAL Hascll Lica 000000"), 

, 2 811 ' Group table name 

s @ Bais GROUP _TABLE VECTOR C 

: 284 081 INITIAL ert TABLE_NAME) 

; 285 0814 ' Group table name descriptor 

; 286 0815 ASC_GROUP : VECTOR C8 TE 

; 287 0816 INITIAL CEASCIT 00000000") 

; 288 0817 ' Group in ASCII (6 bytes used) | 
3 89 0818 ASC_GROUP_DESC VECTOR C2 

; 290 0819 INITIAL (6, “ASC “ GROUP); 

: 291 0820 !“ASCII group descriptor 

3 3 pos) 

: 29 08 ; EXTERNAL 

: 294 082 MOUNT_OPTIONS : BITVECTOR, ' command options 

: $32 0824 MOUNT FLAGS : VECTOR, i mount flags 

; 296 0825 CALLERS_ACMOD =: LONG, i Caller's of SMOUNT) access mode 

3; 297 0826 EVICE_CHAR : BBLOCK, i device characteristics 

; 298 0827 1s “COUNT, i number of devices specified 

; 299 0828 : VECTOR, i Logical name descriptor 

: 300 0829 DEVICE INDEX : i in er into PHYS_NAME vector 

: 301 0830 PHYS NAME : VECTOR, i Bites cal device name descriptor 

3 0 0831 MTL ENTRY : REF BBLOCK, ; 

: 30 tt SMTC_E : REF BBLOCK t pise k for volume set 

3 04 083 SCHSGL CURPCB : REF BBLOCK “ADDRESSING “RODE (GENERAL), 
; 305 pee address of our PC 

$ 06 5 I0C$GQ_MOUNTLST : VECTOR nooressing sMODE (GENERAL), 

; 307 Oe38 mounted volume List head 
: 08 083 EXESGL_FLAGS : BITVECTOR noonés$i nee “RODE (GENERAL), 

; 309 838 ec flags lon cana | 
3 10 839 NSASGR_ALARMVEC : BBLOCK nore ssing. — (GENER Ney 
s 311 840 enable b : vector 
F} \; 0841 NSASGR_JOURNVEC : BBLOCK noone ss int “RODE. (GENERAL) 
: 1? He Surnal enable aie vector 
> | 
: 15 ste EXTERNAL LITERAL 
; \¢ Beg EXESV_CONCEALED : UNSIGNED (6); ! concealed device flag | 
: 318 084 


>; 319 rt LINKAGE 

3 0 4 ARGLST_IMGNAM = JSB (REGISTER = 2;) : 

; 1 29 WOeRe SERVE (0,1) 

: $e 1 NOTUSED (3,4,5,6,7,8,9,10,11), 

: 324 2§ EXE_CRE_GTABLE = JSB (REGISTER = 11) : 

5 5 Ree NOPRESERVE (0,1,2.3,4,5,8); 

: : 0896 EXTERNAL ROUTINE 

: 8 085 LOCK es dB, ' Lock the 1/0 data base 

3 9 0858 UNLOCK 1068, ' unlock the 1/0 data base 
; 0 +84 NSASEVENT AUDIT : ADDRESSING MODE (GENERAL), 

3 1 60 security auditin fe routine 
$ ¢ 0861 NSASARGLST_IMGNAM : ARGLST_ INGNAR ADDRESS NG_MODE (GENERAL), 
3 BRe6 t IMGRAM into ARGLST 
; 4 086 EXESCRE_GTABLE : EXE_CRE_GTABLE " ADDRESSING MODE (GENERAL) : 
3 Soe 0864 ! create group logical name table 
; 336 0865 

3 Ss7 0866 

; 338 0867 ! First build the volume Logical _— table entry. 

; 339 0868 ! Use bogtgat name from command unles 

: 340 0869 : = There is no logical name 

; 341 0870 ! - It is a disk volume set 

: a6 + a } = More than one device is being mounted, and they are not magtapes. 
; és 0878 Get the logical name; either from the command or from the volume Label. 
: 346 875 2 

; rt 4 a8 Copy the user-specified logical name to local storage. 

: 349 0878 2_ 

; 50 0879 CHSMOVE (.LOG_NAME(O] LOG_NAME(C1) OS: BUFFER), 

; 351 0880 2 NAME_DESC CDSC$W_LENGTH) = =LOG_NAME 

$ 26 0881 NAME _DESC pertener ced = 0; 

; 5 pees NAME _DESC CDSC$B_CLASSJ = 0: 

H 54 088 NAME _DESC CDOSCSA_POINTER] = LOG_BUFFER; 

RB 

: 37 st] Calculate the access mode for the logical name creation 

: 359 0888 

HY 9 334 ACMODE = MIN (CIF bn Pan. GPT toustort SYSTEM) 

; : 91 ELSE PSLSCZSUPER), .CALLERS_ACMOD); 

; 64 3 IF MOUNT Ont JousCePT _LOG_NAMEJ 

é 5 94 OR WonTi ENTRY NEQ 0 

‘ 66 95 Fan” ( DEVICE "COUNT NEQ 1 AND (NOT .DEVICE_CHARCDEV$V_SQD))) 

; 39 BEGIN 

: 9 4 IF .DEVICE_CHARCDEVS$V_SQD) 

8 70 THEN P = TAPE _PREF IX 

3 4 bis ELSE P = DISK_PREFIX; 

: 7 Ons C = LABEL Lewern AS VOLWARE , vCBCVCBST _VOLNAME J) ; 

3 74 + WAE .DESCEDSE W_LENGTH)] = .C + 

; 375 4 NAME~DESCCDSCSA_POINTER) = LOG_BuF FER; 
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pai (5S, .P, .C, VCBCVCBST_VOLNAME], 0, .C+5, LOG_BUFFER); 


Now create logical name. The physical device string is fhe equivalence 
string. If a tape mount, use ane poyetess name of the first volume, 


' 
i 
} otherwise use the physical name o e current volume. 


INDEX = .DEVICE_INDEX; 
IF .BBLOCK CUCBCUCBSL_DEVCHAR], DEV$V_SQD) 
INDEX = 0; 
Store the location of the LNM block in the MTL 


! 

i 

ITEM_LIST C 0 ] = ( LNMS$_LNMB_ADDR“*16 OR 4 ; 

ITEM_LIST C 1 ] = MTL_ENTRYCMTLSL_LOGNAME]; ! CAUTION USED BY ITEM_LIST C 7 J 

ITEM_LIST C 2 ] = 0; 

' Store the location of the MTL in the LNM BLOCK. 

! This causes the logical name deletion logic to clear the MTL's logical name 

; pototer if the logical name is deleted, just as it does when a mailbox 

ogical name is deleted. 

iTEM_LIST C 3] = ( LNMS_INDEX*16 or 4 ); 

ITEM_LIST C 4 J = UPLIT T LNMXSC_BACKPTR ); 

ITEM_LIST C 5 J = 0; 

ITEM_LIST C 6 J = ( LNMS_STRING*16 or 4 ); 

ITEM_LIST C 7 J = ITEM_LTST C 1]; 

ITEM_LIST C 8 J) = 0; 

] 

' 

ITEM_LIST £ 9 ] = ( LNMS_INDEX*16 or 4 ); 

ITFM_LIST C 10 J = Yd T0); 

ITEM_LIST C 11 J = 0; 

ITEM_LIST f \ } = ( LNMS_ATTRIBUTES“*16 or 4 ); 

ITEM_LIST C 1 = ( IF .EXESGL_FLAGSCEXESV_CONCEALED) 
THEN UPLIT™( LNMSM_TERMINAL OR LNMSM_CONCEALED ) 
ELSE UPLIT ( LNMSM_TERMINAL ) ); 


ITEM_LIST C 14) = 0; s 


! Use GETDVI to obtain the most universal device name for this physical 
eed oa FULLDEVNAM, and pass that to CRELNM as the equivalence name 
i . 


PHYSNAM_DESC [ DSC$W_LENGTH J = .PHYS_NAME [ .INDEX®*2 ) = 1; 
PHYSNAM-DESC [ DSCSA-POINTER ) = .PHYS-NAME C .INDEX*2 + 1 )°+ 1; 
PHYSNAM_DESC (€ DSCSB-DTYPE J = 0; 

PHYSNAM_DESC { DSCSBICLASS } = 0; 

DVI_ITEM 0 = ( DVIS$_FULLDEVNAM*16 or ( PHYS_LENGTH + 2) ); 
DVI-ITEM = FULLNAR; 

DVI-ITEM 2 : fren List C15); 

DVI~ITEM = 0; 

ITEA_LIST C 15 J = 0; 
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>; 433 96 

¢ 3 p 308 a nam = PHYSNAM DESC, 

; v 

; 2 29? itmist = DVI_ITEM ); 

; 438 $87 IF -FULLNAM £0 2 eql XC*_! 

: 440 369 ITEM_LIST [ 15 ( LNMS STRING"16 or ( .ITEMLLISTC15]-1)); 

H te3 ay JTERLUIST 16 j= = FULLNAR + 

; N 

: ee 38 Use TEM LIST 15 ( LNMS_STRING*16 or .ITEM_LIST C 15] ); 

: rr 4 {ren LIST C 16] = = FULLNA AR; 

; 447 0976 ¢ ITEM_LIST Pa7 3 = 0; 

; 449 997 ! End item List 

: 451 0980 2 ITEM_LIST C 18) = 0; 

i BAG, 

: 454 098 i If the volume is to be mounted /group. then we have to create the group logical 

> 455 0984 ! name in the group of the current process. To avoid the situation that the group 
: 456 0985 : table does not exist, we call the EXESCRE_GTABLE routine, which creates the group 
3 rt paee table if it doesn't already exist. 

: 459 $988 if -MOUNT_OPTIONS COPT_GROUP) 

; 460 0989 

; ree 344! BEGIN 

; 463 ; 099¢ SFAO ( zasc 1D .LNMSGROUP_ 'ow', ! Format LNMSGROUP_xxxxxx 

; T 

; rhe ; $998 COUP TALE ace CPCBSL_UIC]) <16,16>); ! Convert our group number to octal 
H reef P 0999 SFAO ( Age GR *!0w' ! Format octal in ASCII 

/: ad A et 

; a 1909 AP ceneee CURE CPCBSL_UICJ) <16,16>); ! Convert our group number to octal 
: 473 1008 EXESCRE_GTABLE (ASC_GROUP); ! Create the LNMSGROUP_xxxxxx table 
: 475 1 END; ! exists 

. 

; tis p i anes ( ACMODE = ACMODE 

> 480 P 1009 TABNAM = (IF MOUNT OPT IONS C OPT_SYSTEM } 

; 481 P 1 19 pnen SYSTEA_T 

; ¢ : p i 1 IF ,MOUNT “igns C OPT_GRCUP J 

3; 4 P 1 18 THEN GROUP” TABLE 

es Pipcnten 

: 48 P 1016 LOGNAM = NAME_DESC, 

; 488 101 ITMLST = ITEM_LIST ); 

; 489 1018 


er —— 
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: ret 1933 : Link the MTL entry into the List 

: 49 19 ? MTL_ENTRYCMTLSL_UCB) = .UCB; 

; $37 18 § LOCR_I0DB (); ! Lock the mount List 

: 495 1024 IF .MOUNT_OPTIONSCOPT GROUP] OR gPE MT OPT IONSCOPT SYSTERD 

3; «4 1025 THEN MOUNT_LIST = 10C$GQ_MOUNTLSTC1 

; 49 1 § ELSE 

; 498 1 BEGIN 

2 499 1 3 JIB = .SCHSGL_CURPCBCPCBSL 448); 

: 99 | 4 MOUNT _LIST = JIBCJIBSL_MTLBLI; ! get the tail cf the mount List 
; 0¢ 103) ¢ INSQUE (.MTLLENTRY, ..MOUNT_LIST); 

; ¢4 19 § UNLOCK _I0DB (); ! unlock the mount List 

; 20 1035 ! Now build the volume set logical name if we are mounting volume 1 of a 
: raid 18 : disk volume set. 

: 509 1038 if .SMTL_ENTRY NEQ 0 

3 219 103 THEN 

; 313 Ieee BEGIN 

: 318 Hk Get the logical name; either from the command or from the volume Label. 
: 515 1044 

3 i Fs } Copy the user-specified logical name to local storage. 

: 518 1067 CHSMOVE (.LOG_NAMECO], .LOG_NAMEC1) L0G_ BUFFER); 

: 519 1048 NAME_DESC CDSC$W_LENGTH) = 7LOG_NAME (0); 

3 259 1049 NAME _DESC [DSCSB_DTYPE] = 0; 

; $21 1050 NAME _DESC CDSCS$B_CLASSJ = 0; 

; 3 é 1051 NAME_DESC CDSCS$A_POINTER] = LOG_BUFFER; 

; 324 1988 If NOT .MOUNT_OPTIONSCOPT_LOG_NAMEJ 

; 226 1055 4 BEGIN 

HY : 7 1 28 4 IF DEVICE CHARCDEV$V_SQD) 

; 528 1057 4 THEN P = TAPE_PREFIX 

3; 2 , 1336 ? ELSE P = DISK_PREFIX; 

: 331 1060 4 RVT = .VCBCVCBSL_RVT); 

3 3 1061 4 C = LABEL_LENGTH CRVTES_ STRUCNARE, RVTCRVTST_STRUCNAME J); 

3 3 1906 & NAME _DESCLDSCSW_LENGTH] = .C + 5; 

: 1 & NAME sc rape Pa ght, = £96 BUFFER; 

: 5 He: 4 cnscOPy (5, .P, .C, RVTCRVT T_STRUCNAME), 0, .C+5, LOG_BUFFER); 
; 1 ‘ 

3 ; 1066 !' Now create logical name. The physical device string is the equivalence 
: 539 1 3 ! string. If a tape mount, use the physical name of the first volume, 
; re : H } otherwise use the physical name of the current volume. 

: 54 1071 INDEX = .DEVICE INDEX: 

; at ' i ul -BBLOCK CUCBTUCBSL_DEVCHAR], DEV$v_SQD) 

: 545 1074 INDEX = 0; 

; 546 1075 
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tore the location of the LNM block in the MTL 


13 ( LNMS_LNMB_ADDR“*16 OR 4 
ist ff ? }: 5 ntl. ERTRYEATLSL “LOGNAMEI;" 


e the location of the MTL in the LNM BLOCK. 

auses the logical nae deletion logic to clear the MTL's logical 
oteter | f the logical name is deleted, just as it does when a 
x logical name is deleted. 


( LNMS_INDEX*16 © 
PLIT T LNMX$C CRRCKPTR’ ); 


7 F fh tte ae or 4 ); 


+O.090009 09 09 C9 09 09 00098 SII NI 
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E 
E 
E 
09 EM_ 
09 
84 Define equivalence string 
0 TEM_LIST io INDEX*16 or 4 ); 
099 TEM_LIST E 10 10 }: etd TTO0); 
O38 TEM_LIST 
TEM_LIST f \¢ }: ( LNMS_ATTRIBUTES*16 or 4 ); 
TEM_LIST ‘ft. gE XESGL FLAGSCEXESV_CONCEALED) 
UPLIT™ ¢ LINMSAL TERR INAL OR LNMSM_CONCEALED ) 
LIT ( LNMSM_TERMINAL ) ); 


ITEM_LIST C 14 ] = 0; 7 


! Use GETDVI to obtain the most universal device name for this physical 
i node FULLDEVNAM, and pass that to CRELNM as the equivalence name 
s . 
i 
best -PHYS_NAME C .INDEX*2 ] = 1 
Sc 
sc 


PHYSNAM _D ; 
-PHYS_NAME C .INDEX*2 + 1) + 1; 


PAA AOAC UIINIMNUIUIVIVIVIVITE & 
CI ODS NOUR UINI—O Oo0 Wr Pou > OOo dO ee < 


oy yt eer ep 


ernene mmmnm 


fovees = PHYSNAM_DESC, 
tmist = DVI_ITER ); 


IF .FULLNAM C 0 J eql 2C°_' 
THEN 


_LIST C15 3 = ( LNMS STRING*16 or ( .ITEMLLIST C15) -1)); 
“LIST € 16 J = FULLNAR + 


C 
¢ 
C$B~DTYP 
4 C$B~CLAS 

BG DVI_IT en 0 ) = ( DVIS_FULLDEVNAM*16 or ( PHYS_LENGTH + 2) ); 

87 DVI-ITEM C 1 2 = FULLNAR; 

88 DVI-ITEM = ATER_LIST C15); 

89 “ITEM = 0; 

30 TYER! List C153 = 0; 

9 Pp SGETDVIW ( 

9 Pp 

94 

95 

96 
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a a ee a ed ad ed 8 2 2d dd 8 = dd od 
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c-z ‘rz 


IST f 15 j = ( LNMS_STRING*16 or .ITEM_LIST C 15 ] ); 
Ist C 16 J] = FULLNAR; 


18-5¢ 1984 01:16:19 VAX=11 Bliss-32 V4.0-742 P 13 
1 ~Sep-19 4 9:18:33 D1SKSVMSMASTER: CMOUNT. SRCIMAKLOG.B32;1> (3) 


; 604 1133 END; ; 
; 605 1 4 ITEM_LIST C 17] = 0; ; 
; $09 11 § ! End item List : 
; 608 11 : : 
; 609 11 3 ITEM_LIST C 18 J = 0; : 
; 610 11 : 
; 611 P 1140 SCRELNM : 
; ol¢ P 1141 ( ACMODE = ACMODE, > 
; $1 P 1108 TABNAM = (IF MOUNT OPTIONS C OPT_SYSTEM J : 
> 614 P 114 THEN SYSTEM_TABLE : 
; 615 P 1144 ELSE . 
3 oi8 P 1145 IF .MOUNT_OPTIONS C OPT_GROUP J : 
3; OF P 1128 THEN GROUP_ TABLE : 
; 618 P 114 ELSE JOB_TABLE : 
; 619 P 1148 ), ; 
; 620 P 1149 LOGNAM = NAME_DESC, ; 
: ? 1 1339 ITMLST = ITEM_LIST ); : 
; 6 g 1138 SMTL_ENTRYCMTLS$L_UCB] = .UCB; : 
; ? ¢ 1387 SMTL_ENTRYCMTL$V_VOLSET) = 1; ! identify as a volume set entry , 
; 696 Mtg? LOCK_I0DB (); ! lock the mount List : 
; 628 1157 IF .MOUNT_OPTIONSCOPT GROUP] OR .MOUNT_OPTIONSCOPT_SYSTEM] ; 
; 629 1158 THEN MOUNT_LIST = I0C$GQ_MOUNTLSTL1 3 
; 630 1159 ELSE : 
; 631 1160 4 BEGIN ; 
; O36 1161 4 JIB = .SCHSGL_CURPCBCPCBSL 4 ‘ . : 
; O37 1166 4 MOUNT_LIST = JIBCJIBSL_MTLBLJ; ! get the tail of the mount List ; 
; tH 1198 INSQUE (.SMTL_ENTRY, ..MOUNT_LIST); ‘ 
3; 637 1166 UNLOCK_IO0DB (); ! unlock the mount List ; 
; 638 1167 : 
; 639 1168 END; ° 
; 640 1169 3 
: 641 1170 3 
: O66 1171 IF (.SCHSGL_CURPCB CPCB$V_SECAUDITI : 
; 64 1178 OR .NSASGR_ALARMVEC BNSAEY CVT _ROUNT, : 
; 644 117 OR .NSASGR-JOURNVEC CNSAS$V~EVT~MOUNT J) ; 
3; 645 1174 THEN : 
; 646 1175 BEGIN : 
3 647 1326 : 
> 648 117 CAL : 
3; 649 1178 ARGLIST : BBLOCKCNSASK_ARG2_LENGTH], ' security auditing argument List 3 
3; 650 1179 RB : REF BBLOCK, ' address of the ORB : 
: $3) i ? TEMP_PROT; ! temporary protection word : 
; £38 11 § CHSFILL (0, WSASK ARES LENGTH, ARGLIST); ! zero argument List : 
3 654 11 ORB = .UCB CUCBSL_ORBJ; ! get ORB address 3 
: 655 1184 3 
; 636 1185 ! 3 
; 638 i $ ; Set up the security auditing argument List header : 
: 65 1188 ; 
; 660 1189 ARGLIST CNSASL_ARG_COUNT] = ( NSASK_ARG2_LENGTH/4 ) = 4; : 


a 
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| USeaLeset pee" and arguecane! 
ARGLIST CNSASL_ARG_IDJ = NSASK_RECID_VOL OU; elelditen seid 04 ak nace 
fg sCe.. CURPCB CPCBSV_SECAUDITI i set up proper flags 


ARGLIST CNSASV_ARG_FLAG_MANDY]) = 1; ! mandator diti 
a aa GR_ALARMVET CNSASV WEVT "MOUNT) — "7 


ARGLIST CNSASV_ARG_FLAG ALARM] = 1; 
IF_.NSASGR_JOURNVEC CNSASV_EVT_MOUNT) 


ARGLIST CNSASV_ARG_FLAG_JOURN] = 1; ! journal this record 
ARGLIST CNSASB_ARG_PKTNUM) = 7; 


generate alarm for this record 


initialize number of items 
less vol-set pkt 


' 
} Set up the security auditing argument List for mount 


ARGLIST CNSASL_ARG2_UIC TM) = NSASK_ARG_MECH LONG*16 + NSASK_PKTTYP_UIC; 
ARGLIST CNSASL_ARG2_UICJ = ORB CORBSL _OWNERT; ! set device owner UIC 
ARGLIST CNSASL_ARG2_VOLPRO_TM] = NSASK_ARG_MECH_WORD*16 + NSASK_PKTTYP_VOLPRO; 
Get the volume protection 


ten PROT = Q; ! clear temp Location 
1F ORB CORBSV_PROT_163 . 
ise ™™- PROT = .ORB CORBSW_PROT) ! standard SOGW protection 
BEGIN ' vector protection 
TEMP_PROT <0,4> = .(ORB CORBSL_SYS_PROT])<0,4>; ! system 
TEMP_PROT $3 2 = .(ORB CORBS$L_OWN_PROT )<0;4>; ' owner 
TEMP_PROT < = .(ORB CORBSL_GRP_PROTJ)<0,4>; i group 
hae PROT es‘ i> = .(ORB CORBSL-WOR-PROTJ)<0,4>; i world 
ARGLIST CNSASL_ARG2_VOLPRO) = .TEMP_PROT; ! set volume protection mask 
ARGLIST CNSASL_ARG2_MOUFLG_ TM) = NSASK_ARG_MECH -LONG*16 + NSASK_PKTTYP_MOUFLG; 
ARGLIST CNSASL-ARG2_MOUFLG™] = .MOUNT_FLAGS; ! set mount’ flags 


NSASARGLST_IMGNAM (ARGLIST CNSASL_ARG2_IMGNAM_TM]); ! set image name 


oe OF ENSASI, “ARG? _DE DEVNAM_ TM] = NSASK_ARG_MECH_DESCR*16 + NSASK_PKTTYP_DEVNAM; 

ITE T C15) = “ITEM_LIST C15) + 1; ! include the ‘_' char 
ARGLIST” at “AG DEVNAM ~pa) = ,ITEM_LIST C15]; ! set size of full device name 
ARGLIST CNSASL-ARG2_DEVNAM_PTR] = FULLNAM; ' set full device rame buffer address 
ARGLIST [NSASL_ARG2_LOGNAM_TM]_ = NSASK_ARG cD DESCR*16 +. NSASK_PKTTYP_LOGNAM; 
ARGLIST ENSASL-ARG2-LOG GNAMS1Z) = NAME DESC pSc$w -LENGTH Hi}: ' set sizeof logical name 
ARGLIST CNSASL-ARG2-LOG NARSP TR] = LOG_ BOFFE set logical name buffer address 
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; 718 124 ARGLIST (CNSAS$L =ARGe-V vo um), = _NSASK ARG_MECH_DESCR*16 + NSASK_PKTTYP_VOLNAM; 

; 719 124 ARGLIST NSASL ARG YOLNA 

; 720 124 LABEL ALE aye S Merahae. “VCB CVCBST_VOLNAME]); ! set size of volume name 

; £ ; ! 29 ARGLIST ncigee TARG VOLRAM_PTR “= VCB CVCBST _VOLNAMEJ; ! set volume name buffer address 

: 7 125 

3; 724 1 2g ' If the volume is a member of a volume set, then 

3 @9 1254 : a. increment argument count 

: 726 1255 ! b. increment number of packets 

s Te? 1 § ! c. set up volume set descriptor 

; 728 125 ! 

; 729 1 rH 

; 7350 1 4 

; 731 1260 4 ( :VCB VCBSW_RVN) NEG 

2 ; 1261 3 

3; £ 1 ¢ 4 BEGIN 

: 734 1263 4 ARGLIST CNSASL_ARG_ coat = LIST Cysast ARG 4s + 3; ! count vol-set pkt 

s 735 1264 4 ARGLIST CNSASB— ~ARG_P TNUM] =" ARGL IST A$B_ARG_PKTN s 

: 736 1265 4 ARGLIST NSASL_ARG2 v LSNAM_ 14) = NSA lsh NARG MECH. DESCR"16~ + NSASK_PKTTYP_VOLSNAM; 

s 37 1266 4 RVT = itn VCBSL 

; 738 1267 4 ARGLIST MSAD. ARG2 vol SNAM 

3 739 1268 4 Apel ALE H (RUTSS STROCNAME, RVT CRVTST_STRUCNAME]); ! set size of vol-set name 

3 me 199? $ ano. St ngAse VARGS VOLSNAM_PTR] = RVT CRVTST_STRUCNAME); i set vol-set name buffer address 
: 74 i3ri ; 

3 ez iste ; CALLG (ARGLIST, NSASEVENT_AUDIT); ! call event audit routine 

3: 745 1274 2 END; ! end of block defining ARGLIST 

; 746 1275 2 

3 747 1276 1 END; ! end of routine ENTER_LOGNAME 


«PSECT SPLITS,NOWRT ,NOEXE ,2 


24 45 50 41 54 00000 P.AAA: .ASCII \TAPES\ : 

24 4B 53 49 44 90005 P.AAB: ASCII \DISK$\ : 

00 00 4D 45 54 53 59 53 24 4D 4E 4C OO00C P.AAD: .ASCII wens : 

010E000A 0018 P.AAC: LONG ; 

00000000" 0001¢ -ADDRESS P : 

00 42 4F 4A 24 4D 4E 4c 99 0 P.AAF: ASCII Weston : 

010F0007 00028 P.AAE: “LON : 

20000000° 9 SDDRESS P : 

30 30 30 30 30 SF 50 55 4F 52 47 26 4D 4E 4c : P.AAG: .ASCII \LWMSGROUP_ 000000\ ; 
PERE EESI Hint) P.AAH: .LONG -127 : 

99000000 Oe P.AAL: ONG g ; 

00030 48 P.AAJ: -LONG 6 : 

00000200 4c P.AAK: .LONG 51 : 

00 00 57 4F 21 SF 50 55 4F 52 47 26 4D 4€ ac 20 P.AAM: ASCII \LNMSGROUP_!0W\<0><0><0> ; 
0196000 60 P.AAL: .LONG 17694733 : 

0000000' 64 .ADDRESS P.AAM : 

00 57 4 68 P.AAO: .ASCII \s0u\ <0 : 

010600 ; 6¢ P.AAN: .LONG 17694723 ; 

0 ° .ADDRESS P.AAO ; 


|, NOT .BBLOCK CUCB ae sy ee DEVSV_FOR] ) 
HEN 
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FFFFFF81 00074 P.AAP: .LONG <-127 F : 
909 0 0 78 P.AAQ: .LONG : : : 
0000300 48 P.AAR: .LONG 768 ; : 
0000200 00086 P.AAS: .LONG 512 : ; 
TAPE_PREFIX= P.AAA ; 
DISK "PREF IX= P.AAB ; 
SYSTEM TABLE= P.AAC ; 
JOB_TABLE= P.AAE ; 
sEXTRN MOUNT FLAGS, CALLERS ACMOD ; 
eEXTRN AA: bevice COUNT $ 
-EXTRN GNA AREY "evi ; 
“EXTRN NARE ; 
“EXTRN Paves nit STL Thrsey MOUNTLST ; 
“EXTRN EXESGL~ FLAGS NSA$GR_ALARMVEC ; 
-EXTRN NSAS$GR~JOURNVEC F 
eEXTRN ot CONCEALE : 
wEXTRN K_TODB, UNLOCK. 1008 3 
eEXTRN LO KSEV VENT_AUDIT ; 
-EXTRN NSASARGLST_IMGN 3 
~EXTRN EXESCRE_GTABLE SYSSGETOVIW ; 
~EXTRN SYSSFAO, SYSS$CREL : 
PSECT $CODE$,NOWRT,2 : 
OFFC 00000 ENTRY ENTER LOGNAME , Save R2,R3,R4,R5,R6,R7,R8,- 3 0734 ; 
SE FDEC CE 9E 00002 MOV -5$2(SP), SP : : 
0084 CE 0000" CF 10 28 00007 MOVC3 #16, P.AAG, TABLE_NAME + 0810 : 
7C «OA 10 DO 0000F MOVL #16, GROU “TABLE : F 
0080 CE 0084 CE 9E 00013 MOVAB TABLE SN > GROUP TABLE+4 : ; 
74 AE 30303030 8F DO O001A MOVL #80 Fenese. ASC_GROU : ; 
78 AE 30303030 8F DO 00022 MOVL 480846445 ASC - GROUP +4 ; : 
6C AE 06 DO 0002A MOVL #6 GROU : ; 
70 AE 74 AE 4 000 : MOVAB Ast_¢ ROOP, ASC. GROUP D ESC+4 ; ; 
FEF8 CD 00006 DF 00006 CF : 000 MOVC LOG NAME » @LOG-NAME+Z, EtG _BUFFER : 0879 ; 
F8 AD 00006 CF 3C 0003D MOVZWL LOG-NAME + 0880 : 
FC AD FEF8 CD 3 0043 OVAB LOG BUFFER mea _DESC+4 : 0883 : 
05 00006 CF £9 00049 BLBC MOUNT _OPTIONS+1, -1$ : 0889 : 
50 01 DO 0004E MOVL #1, RO : 3 
03 11 00051 BRB 2$ : ; 
50 08 DO 00053 1$: MOVL 2, RO : : 
00006 CF 30 D1 0096 2$: cHPL RO, CALLERS_ACMOD : 0891 ; 
50 00006 cf D 060 MOVL § CALLERS_ACMOD, RO : F 
08 AE 9 D 62 3$: MOVL RO, ACM > 0889 ; 
13 00006 CF 05 £1 000 BBC #5. MOUNT OPTIONS+3, 4$ > 0893 ; 
00006 cf 3 a7 Ist SMTL_ENTRY ; 0894 : 
01 00006 CF D i CMPL VICE_COUNT, #1 + 0895 ; 
1 7 BEQL : 3 
52 00006 CF c 79 BBS , DEVICE CHAR. 7$ ; : 
07 00006 CF FI 7F 4$ BBC DEVICES CHA ; 5$ : 0898 : 
6E 0000° cf Hi 6 3 MOVAB B52 FIR, : 0899 : 
$ 0000' CF 9 O8C 5$: MOVAB DISK_PREFIX, P > 0900 ; 
é 08 AC 006 00091 68: MOVL CB, ~R6 : 0902 ; 

| 

| 

| 
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146 Ab OF 095 PUSHAB 20(R6) ; ; 
DD 98 PUSHL # : ; 
0000v CF FB O9A CALLS #2, LABEL_LENGTH : ; 
04 AE D 009 MOVL RO, C : : 
50 04 AE 03 C1 a3 ADDL3 #5. C, RO + 0903 ; 
FB AD 0 Be O0A MOVW RO, NAME_DESC 3 ; 
FC AD FEF8 cp ; OOAC MOVAB LOG_BUFFER, NAME_DESC+4 + 0904 ; 
5A 0 D 00B¢ MOVL RO,~R10 + 0905 : 
57 FEF8 CD 9€ 000B MOVA LOG_BUFFER, R7 ; ; 
00 00 BE 05 2C OO00BA movcS #5,-aP, #0, R10, (R7) : F 
87 1 itt BGEQ 7$ : 
57 gf ig ita ADDL #5, R7 : s 
5A 05 ce 006 SUBL2 #5. R10 : 3 
00 16 Ab 04 AE ¢C 00¢9 MOVCS C, 20(R6), #0, R10, (R7) : : 
56 00006 CF oO 000D1 7$ MOVL § DEVICE_INDEX, INDEX + 0913 r 
57 04 AC DO 00006 MOVL UCB, R + 0914 ; 
02 38 OA? 05 £1 OOODA BBC #5, 56(R7), 8$ : ; 
56 D4 OOODF CLRL —INDEX + 0916 ; 
00CO CE 00090004 8F DO O00E1 8$: MOVL. #589828, ITEM_LIST + 0920 ; 
00c4 = CE 00006 CF 10 ¢1 OOOEA ADDL3 #16, MTL_ENTRY, ITEM_LIST+4 + 0921 ; 
00c8 CE D4 000F2 CLRL TEA LISTS + 0922 $ 
OOCC CE 00010004 &8F dO 000F6 MOVL #65540, ITEM_LIST+12 + 0929 : 
00D0 «CE 0000' CF 9E OOOFF MOVAB P.AAH, ITEM CIST+16 + 0930 3 
0004 CE D4 00106 CLRL ~—s ITEM List+20 > 0931 ; 
00D8 CE 00020004 &8F DO OO10A MOVL #131076, ITEM_LIST+24 : 093 ; 
OoDc «CCE 00C4 CE 9E 00113 MOVAB ITEM_LIST#4, ITEM_LIST+28 > 093 ; 
OOEO CE D4 OO11A CLRL ITEM Lists 3 + 0934 ; 
O0E4 CE 00010004 8F DO OO11E MOVL #65520, ITEM_LIST+36 : 0938 ; 
O0OE8 CE 0000" CF 9E 001 MOVAB P.AAI, ITEM CIST+40 : 0939 ; 
OOEC CE 04 001 : CLRL ~—s ITEM L1ST+4z + 0940 ; 
OOFO CE 00030004 8F 00 001 MOVL #196812, ITEM_LIST+48 + 094 : 
07 000000006 00 006 a 001 : BBC S*EXESV_CONCEALED, EXESGL_FLAGS, 9$ > 094 ; 
50 0000" CF SE 0014 MOVAB P.AAJ, RO > 0944 : 
05 11 00148 BRB 10$ ; ; 
50 0000" CF 9E O014A 9 MOVAB P.AAK, RO > 0945 ; 
00F4 CE 50 DO OO14F 10$ MOVL RO, ITEM LsT#52 > 0943 ; 
OOF8 CE D4 00154 CLRL = ITEM_LIST#+56 + 0946 ; 
50 56 01 78 00158 ASHL #1, INDEX : 0952 ; 
0000GCF40 DF 0015¢ PUSHAL PHYS _NAMECRO ; : 
00B8 CE 9 ot A3 00161 SUBWS #1, S(SP)+, PHYSNAM_DESC ; F 
ooBc CE O000GCF4 1 (7 0167 ADDL3 #1, PHYS _NAME+4CROJ, PHYSNAM_DESC+4 : 0953 3 
poe, ce B4 4 0 CLRW pursue Beste ; 0954 ; 
0094 CE 00E80011 &8F DO 00174 VL  #15206369, DVI_ITEM : 0957 : 
0098 CE OAS CE 9E O17 MOVAB FULLNAM, BVI_ITEM+4 : 0958 : 
009c CE OFC CE 9E 00184 MOVAB ITEM_LIST+607 DVI_ITEM+8 : 0959 ; 
0AO CE D4 00188 CLRL  OVI_TTEM+12 : 0960 ; 
OFC cE D4 O18 CLRL ‘ITEM_LIST+60 : 0961 : 
— 7C 001 CLRG = = (SPY > 0965 : 
7E 7¢ 019 CLRQ = =(SP) ; : 
00AS CE 9F 001 PUSHAB DVI_ITEM : : 
00CC ce 7 0198 PUSHAB PHYSNAM_DESC 3 3 
; C 0019F CLRQ = =( SP) a ; ; 
000000006 90 0 Fe 1A1 CALLS #8, SYSSGETDVIW ; : 
5F oa O0A4 ce 91 001A8 CMPB FULLNAM, #95 > 0967 ; 
19 12 OO1AE BNEQ = ‘11 : : 
| 
| 
} 
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16-Sep-1984 01:16:19  VAX=11 Bliss-32 V4.0-742 ‘age 18° 
13-808 - 1 3b 05:48:33 DISKSVMSMAS TER: CMOUNT. SRCIJMAKLOG.B32, 1° (3) 
50 OOFC 1 ¢3 00180 SUBL3. #1, ITEM_LIST+60, RO : 0969 ; 
Oorc CE gf 00020000 4 f9 O18 BISL FiS1078 RO ITEM_LIST+60 ; — ; 
0100 «CE OOA if 9 \¢ MOVAB f LLNAM#1, [TEM_LTST+64 : 0970 ; 
OOFE CE : 8 Bik5 11$:  BISB2 #2, ITEM_LIST+60 t 0973 ; 
0100 CE OAS CE O9€ Dice MOVAB FULLNAM ITEM_LIST +64 + 0974 ; 
104 +E : 105 12$: CLRQ —s ITEM _LI§T+6 t 0976 ; 
0006 CF ? 109 ist " UNT_OPTIONS + 0988 : 
50 000000006 $0 10F MOVL SCHSGL CURPCB, RO t 0995 ; 
7 OBE CO 3C OO1E6 MOVZWL 190(ROT, -(SPS : ; 
0 0 CE OF OiEB PUSHAB GROUP_TABLE : ; 
4 CE OF OOTEF PUSHAB GROUP~TABLE : ; 
0000' F OF pits PUSHAB P.AAL : $ 
000000006 9 000000006 6 bb Solt BOWE’ SCHSeL CURECB, RO : 1000 
7E 008 co ee 00 § MOVZWL OCROT. =(SP5 : : 
70 AE OF 00 OA SHAB ASC_GROUP_DESC : : 
74 AE 9F 0020D PUSHAB ASC~GROUP~DESC : ; 
0000' CF 9F 00210 PUSHAB P.AAN : ; 
000000006 00 04 FB 00214 CALLS #4, SYSSFAO : ; 
5 74 AE 9E 0021B OVAB ASC_GROUP, R11 : 1002 3 
000000006 00 16 0021F JSB EXESCRE_GTABLE : ; 
00cO «CE «OOF 00 33 13$:  PUSHAB ITEM LIST + 1017 : 
OC AE 9F 00229 PUSHAB : ; 
F8 AD OF O022C PUSHAB NAME DESC : : 
07 00006 CF £9 00 F BLBC MOUNT _OPTIONS+1, 14$ : ; 
50 0000' CF SE 00234 MOVAB SYSTEM_TABLE, RO ; F 
12 11 00239 BRB : 3 
00006 CF 95 00238 14$:  TSTB | MOUNT_OPTIONS : ; 
07 18 0023F BGEQ : ; 
50 0088 CE 9E 00241 MOVAB GROUP_TABLE, RO : ; 
05 11 00246 BRB t : : 
50 0000' CF 9E 00248 15$: MOV JOB_TABLE, RO : : 
50 DD 00240 16$:  PUSHL RO : ; 
ze D4 0024F CLRL. = (SP) : : 
000000006 00 05 FB 00251 CALLS #5, SYSSCRELNM : ; 
50 00006 CF 00 00 58 MOVL MTL_ENTRY > 1021 ; 
oc Ad 57 00 0025p MOVL 7,7 12(ROS : ; 
00006 CF 00 FB 0261 CALLS #0, LOCK_I0DB > 1022 ; 
00006 CF 95 00266 TSTB | MOUNT_OPTIONS > 1024 3 
05 19 0026A BLSS _-'17$ : : 
09 00006 CF £9 0 6¢ BLBC §_ MOUNT_OPTIONS+1, 18$ : : 
58 000000006 99 9 0 4 17$: MOVAB 1OCSGO_MOUNTLST#+4, MOUNT_LIST > 1025 ; 
50 000000006 00 06 0 7A 18%: MOVE SCHSGL CURPCB, RO + 1028 : 
5 0080 co D 1 MOVL 128(ROJ, JIB 3 3 
5 04 AB 9E 00 MOVAB 4(R11), MOUNT_LIST : 1029 : 
00 68 00006 DF OE 0028A 19S: INSQUE @MTL_ENTRY, @0(MOUNT_LIST) : 1031 : 
00006 CF 00 F CALLS #0, ONLOCK.10DB ; 1033 3 
00006 CF D 9 TSTL MTL_ENTRY : 10 : 
03 BNEQ 3 3 
O1ED 9B BRW $ : 3 
FEF8 CD 00006 oF 90006 CF 28 208:  MOVC3 LOG_NAME, @LOG_NAME+4, LOG_BUFFER + 1047 ; 
F8 AD 0006 CF 3C OOOA MOVZWL LOG-NAME, NAME ~DESC : 1048 : 
FC AD FEF cD 3 O2AE OVAB LOG-BUF FER NAME DESCs4 ; 1051 ; 
56 00006 CF EO 00284 § #5,~MOUNT_OPTIONS+3, 238 : 1053 ; 
| 
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MAKL 16-Sep-1984 01:16:1 VAX-11 Bliss-32 V4.0-742 Pp 0) 
yO. t 080 en 8een 1 8Re Pbk Ty Tee eet eRe etree amaxtoc.e3204"" (3S 
9 AS 6OCE:CO*"0F 05 PUSHAB DVI_ITEM : 
CC cE F 0030 PUSHAB PHYSNAM_DESC : 
; C 00300 CLRQ = =(SP) : 
000000906 00 08 F DF CALLS #8, SYSS$GETDVIW : | 
FOF O0A4 ce ? FS CHEB F LNAM, #95 + 1125 | 
50 OOF C e- E SUBL3 #1, ITEM_LIST+#60, RO + 1127 
oorc CE gf 00020009 f FF gvelg ACT ee ITEM_LIST+60 : . 
0100 «CE OOA cE 3 ios MOVAB Samay {TEM_LTST+64 : 1138 
OOFE CE 55 8 49 278: BISB2 #2, ITEM_LIST+60 + 1131 
0100 CE OAS CE 9E 004 MOVAB FULLNAM ITEM_LIST +64 : 1132 
106 CE 7C 00413 288:  CLRQ  ITEM_LIST+6 : 1134 
0cO 6CE OF O41 PUSHAB ITEM“LIST + 1150 
O¢ AE 9F 0041B PUSHAB ACMODE : 
F8 AD OF OOSIE PUSHAB NAME_DESC ; 
97 00006 CF £9 0421 BLBC MOUNT OPTIONS+1, 29$ : 
0 0000' cr aE 04 6 MOVAB YSTER_TABLE, r6 : 
00006 cf 9 04 p 298: ST MOUNT _OPT IONS : 
50 0088 cE H 04 ; NOVAB ROUP_TABLE. RO : 
so moor SE RSE Rae ps taser, : 
43 D4 doce "  CLRL. = CSP) : 
000000006 00 05 FB 00443 CALLS #5, SYSS$CRELNM ; 
gc A rmmne Sb SRA aE attstigy ae 
0B AO 01 88 Ooe3s BISB2 #1. 11(RO) > 1153 
00006 CF 00 EB 0045 CALLS #0, LOCK 10DB > 1155 
00006 CF 93 9045¢ STs MOUNT OPTIONS : 1157 
09 00006 CF £9 0046¢ BLBC §_ MOUNT_OPTIONS+1, 33$ : 
58 000000006 60 9 O46 32$: MOVAB OCSGO_MOUNTLST#+4, MOUNT_LIST : 1158 
a ooogains 3 By tary ame in Feet cies. Eas 
58 04 AB 9E 0047C MOVAB  4(R11), MOUNT List : 1162 
00 88 00006 DF OE 00480 34$:  =INSQUE @SMTL_ENTRY, SO(MOUNT_LIST) > 1164 
00006 CF 00 Fe 04 CALLS #0, UNLOCK foD > 1166 
" ’ 36 000000006 9 06 48 35$: OVL scis L CURPCB, .R6 ; 1171 
09 0900006 G 90 1 EO 49 BBS #1, NSASGR-ALARMVEC, 36$ : 1172 
01 000000006 1 i 49F BBS #1, NSASGR-JOURNVEC, 36$ ; 117 
0060 8F 00 6E ; 00 C Ang 36$: MOVCS #0, (SP), #0, #96, ARGLIST + 1182 
53 of aC DO 00481 MOVL : 3 > 1183 
50 1c a3 DO 0048 MOVL Bras) ORB : 
Oc AE 14 00 0048 MOVL g ARGLI > 1189 
0% 29 pe 00010008 OF PY oode Bote gS “Sinan di t Hoe 
ar 4 bs 4CA BISB2 #4. ARGL IST : 1196 
04 000000006 0 1 t AcE 37%: BBC #1. NSASGR ALARMVEC, 38$ : 119 
14 ar 1 88 0040 BiSB2o#i. ARGLIS + : 1199 
04 000000006 0 1 €1 004DA 38%: BBC #1. NSASGR_JOURNVEC, 39S > 1200 
i 
j 


11 
MAKLOG hese -1984 01:16: VAX-11 Bliss-32 V4.0-742 Page 21 
04-000 ee ae tt rie eS me ot HS to er ee 
14 AE 4E BISB2 #2, ARGLIST+ : 1202 
13 AE $ 8 rh 39$ MOVB 4 ARGLIST +9 + 1206 
18 AE 0002000C 8F 00 O04EA MOVL #181084, ARGLIST+12 + 1211 
1 AE 0 D0 Fe MOVL (ORB) ARGLIST +16 + 1212 
20 AE 00010000 8F 00 004F MOVL #65549, ARGLIST+20 + 1214 
1 D4 O04F CLRL TEMP PROT + 1218 
06 0B AO €9 005 BLBC (ORB), 40$ + 1219 
1 1 A : 5 , MOV UL 4 (ORB) , TEMP_PROT : 1221 
51 04 00 18 AO FO é A 40$ INSV 4(ORB), #0, #4, TEMP_PROT + 1224 
51 04 04 1¢ AO FO 00510 INSV (ORB), #4. #4. TEMPPROT + 1225 
51 4 08 : AO F 16 INSV (ORB), a8 #4. TEMP~PROT : 1 6 
51 C 4 Ad F 1 INSV (ORB), #12, #4 TEMP_PROT 71 
4 AE 51 D 41$:  MOVL TEMP PROT, ARGLIS§ t 1229 
8 AE 0002000¢ BF D0 0526 MOVL #131086, ARGLIST+ + 1231 
C AE 00006 CF D 09 E MOVL MOUNT FLAGS, ARGLIST+32 + 1232 
5 0 AE 9E 00534 MOVAB ARGLIST+36, 3 1234 
000000 06 00 16 00538 JSB NSASARGLST IMGNAM ; 
3c = AE-:000400 F po 005 E MOVL #262149, ARGLIST+48 ; 1236 
SF OF 00AS CE 91 00546 CMPB FULLNAM, "9 + 1237 
04 12 0054¢ BNEQ  42$ : 
OOFC CE 06 054 INCL ITEM_LIST+60 t 1239 
40 AE OOFC CE DO 00552 42$:  MOVL  ITEMTLIST+60, ARGLIST#52 + 1240 
44 AE Q0a4 cE 9 0055 MOVAB Fut RAM, ARGLIST+56 + 1261 
48 AE 0004 006 F 0055 MOVL #262150, ARGLIST+60 + 1243 
4C AE F8 AD 3C 00566 MOVZWL NAME DESC, ARGLIST+64 + 1244 
50 AE FEFB cD : 0568 MOVAB. LOG BUFFER ARGLIST+68 ; 1245 
54 AE 00040007 8F 00 00571 MOVL #262151, ARGLIST#+72 + 1247 
52 08 AC 00 00579 MOVL CB R2 + 1249 
14 Ad OF 99570 PUSHAB 20(R2) : 
OC DD 00580 PUSHL #12 ; 
0000v CF 08 FB 058¢ CALLS #2, LABEL_LENGTH : 
58 AE DO 0058 MOVL RO, ARGLIST+76 3 
5c AE 14 =A 4 0588 MOVAB : (R2), ARGLIST+80 + 1250 
28 38 «=6A3 «EB 00590 BLBS 9(R3), 43$ : 1259 
0— A2 B5 00594 TSTW = 14(R2) : 1260 
; 13 00597 BEQL 438 ; 
OC AE f 0599 ADDL2 #3, ARGLIST + 1263 
15 AE 059D INCB ARGLIST* + 1264 
60 3 00040008 8F D0 005A0 MOVL #262152, ARGLIST+84 + 1265 
5 20 A p 348 MOVL  32(R2), RVT : 1266 
OC AS 9F 005aC PUSHAB 12(RVTS + 1268 
DD O0S5AF PUSHL #12 ; 
0000v CF FB 0981 CALLS #2, LABEL LENGTH ; 
64 «AE p B6 MOVL RO. ARGLIST#8 : 
68 AE Oc Ad 9E 005BA MOVAB 12(RVT), ARGLIST+9 : 1269 
000000006 00 OC AE FA OOSBF 43$ CALLG ARGLIST, NSASEVENT_AUDIT t 1272 
04 005¢7 RET > 1276 
; Routine Size: 1480 bytes, Routine Base: S$CODE$S + 0015 


a a nd 


———__——_---—.- 


! Starting at the end of the string, decrement the string length 
! until a nonblank character is found, or the beginning of the string 
is encountered. 


PTR = .STR_LENGTH; 
WHILE CoPTR STR 0} AND (.STR_TEXT C.PTR-1] EQL ZASCII" *) DO 


RETURN (.PTR) 
END; 


M—OOONOUSWN OO 
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v04=000 1e8Sb-19Be 2:68:22 DILSKSYMGMASTERSCMOUNT-SACIMAKLOG.B3203%" (45 
: 138 } a } ROUTINE LABEL_LENGTH (STR_LENGTH, STR_TEXT) = | 
; 751 1 8 1 !+4 
a. ¢ 1280 1! 
; 4 ? : 1 } FUNCTIONAL DESCRIPTION: 
3 1 ‘ 7 This routine will return the Length of a given string. 
3 Pes 1284 1! Trailing blanks at the end of the string are not counted 
; f { : 5 | } as part of the string. 
; 739 : 8? : NOTE THAT NO VOLUME MAY HAVE A VOLUME LABEL WITH TRAILING BLANKS. | 
; 761 1 He , } | 
; 166 1290 1 ! CALLING SEQUENCE: 
3; tare oe LABEL_LENGTH (ARG1, ARG2) 
; 764 1 3 1! 
; 765 1295 1 ! INPUT PARAMETERS: 
; 766 1294 1! ARG1: Input string Length 
: 767 1295 1! ARG2: Input string address 
> 768 1296 1! 
; 707 1297 1 ! IMPLICIT INPUTS: 
3; 770 1298 1! NONE 
3; «771 19.44 1! 
; 77 1300 1 ! OUTPUT PARAMETERS: 
3 77 1301 1! NONE 
3: 774 1308 .7 
3 773 133 1 ! IMPLICIT OUTPUTS: 
: 776 1304 1! NONE 
; 777 1305 1! 
; 778 1308 1 ! ROUTINE VALUE: 
3; 779 1307 1! NONE 
; 780 1308 1! 
; 781 1308 1 ! SIDE EFFECTS: 
; 78 1310 1! NONE 
3; 7 1311 1! 
: «784 131§ 1 !<- 
; 785 1313 1 
3; 786 Wale BEGIN 
3: 787 1315 
3; 788 1316 P 
; a 13! STR_TEXT : REF VECTOR C,BYTEJ; ! Input string 
3 «(UTP 131 LOCAL 
; «79 13 PTR : LONG; ! Pointer to current char. 
; 1 
3 1 
3 1 
3 1 
: 1 
; 1 
3 1 
3 1 
: 1 
3 1 
: 1 
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v0e- 1e-8ep- 138 93:08:33 PTeSUmGnASTeRscHGUMT SkcaMaKLoG.8320%°%" «a> 
0000 00000 LABEL LENT , ro in 1277 
ave no $ 
Pate Es er BS 
50 51 08 A cl 00 ADDL3 STR_TEXT, PTR, RO : 
20 FF A 1 8 0D CMPB =-1(RO), #32 3 
4 is 11 BNEQ 2s 3 
. = 51 DECL PTR 3: 1329 
50 | D0 0001? 2s BOVL PTR, RO 4 
04 O001A RET ; ; 133 
; Routine Size: 27 bytes, Routine Base: $CODE$S + 0500 
: 805 1333 1 
; 806 1338 1 END 
: 807 1335 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 13¢8 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, Seeker oh Sg bt 
; SPLITS 1 NOVEC,NOWRT, RD *NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
. oe | Dye te ie. eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 94 0 1000 00:01.9 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:MAKLOG/OBJ=OBJ$:MAKLOG MSRC$:MAKLOG/UPDATE=(ENHS:MAKLOG) 
3; Size: 1528 coge + 132 data bytes 
3; Run Time: 00:33.7 


"Bh 


; Elapsed Time: 03;97.0 
3 Lines/CPU Min: ¢ ° 

; Lexemes/CPU-Min: 2682 
3 panety Used: 345 pages 
; Compilation Complete 
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